$inputsnps =$ARGV[0];
chomp($inputsnps);
$inputfile = $ARGV[1];
chomp($inputfile);
$outputfile = $ARGV[2];
chomp($outputfile);

open(BUFF,"$inputsnps");
open(BUFF1,"$inputfile");
open(WRBUFF,">$outputfile");
while($line = <BUFF>)
{
	chomp($line);
	$hash{$line} =0;
}
#$line = <BUFF1>;
#print WRBUFF $line;
while($line = <BUFF1>)
{
	chomp($line);
	@array = split(" ",$line);
	if(exists($hash{$array[0]}))
	{
	}
	else
	{
		print WRBUFF $line."\n";
	}
}
